Business Assistant/Business Assistant.iso/indus/auto_inv/inv_0200.prg

Text File | 1991-08-07 | 9KB | 379 lines

*--------------------------------------------------------------------------
* Program KEV_0200 - Display Invoice Kevins Subaru Invoicing
*                       (c) 1989 Systematics Consulting, Inc.
*--------------------------------------------------------------------------

SET TALK OFF
SET ECHO OFF
SET STATUS OFF
CLOSE ALL

ANSWER = "2"

SELECT 1
USE KEV_MSTR
SELECT 2
USE KEV_LBOR
SELECT 3
USE KEV_PART


  CLEAR

DO WHILE .T.

SELECT 1

   @ 24, 10 SAY  "Systematics Consulting, Inc. [phone] - Program KEV_0200"
   @ 1,  1 SAY  DATE()
   @ 1, 71 SAY  TIME()
   @ 2,  5 TO  5,75  DOUBLE
   @ 3, 15 SAY  "             KEVIN'S SUBARU               "
   @ 4, 15 SAY  "             Display Invoice              "

@  8, 12  SAY "ENTER 1 TO LOCATE BY INVOICE NUMBER, 2 TO LOCATE BY NAME:" GET ANSWER
@  6, 5 TO 9, 75
READ
@  8, 1

IF ANSWER = "1"
   INV_IN = 0
   @  8, 12  SAY "ENTER INVOICE NUMBER TO LOCATE:" GET INV_IN  PICTURE "#####"
   @  6, 5 TO 9, 75
   READ
   LOCATE FOR INV_NO = INV_IN
    IF EOF()
    ANSWER = " "
    @ 8, 12  SAY "REQUESTED RECORD NOT FOUND, PRESS ANY KEY...." GET ANSWER
    CLOSE ALL
    READ
    RETURN TO MASTER
    ENDIF
   EXIT
ENDIF


IF ANSWER = "2"
   NAME_IN = SPACE(30)
   @  8, 12  SAY "ENTER LAST NAME TO LOCATE:" GET NAME_IN
   @  6, 5 TO 9, 75
   READ
   LOCATE FOR UPPER(LASTNAME) = UPPER(NAME_IN)
    IF EOF()
    ANSWER = " "
    @ 8, 12  SAY "REQUESTED RECORD NOT FOUND, PRESS ANY KEY...." GET ANSWER
    CLOSE ALL
    READ
    RETURN TO MASTER
    ENDIF
   EXIT
ENDIF

RETURN TO MASTER
ENDDO


CLEAR

@  1,  1 SAY  DATE()
@  1, 20 SAY  "------- DISPLAY INVOICE --------"
@  1, 71 SAY  TIME()
@  4,  7  SAY "Invoice #:"
@  4, 18  SAY  KEV_MSTR->INV_NO
@  4, 25  SAY "Date:"
@  4, 31  GET  KEV_MSTR->DATE
@  4, 44  SAY "Invoice Printed?:"
@  4, 62  GET  KEV_MSTR->PRINTED
@  6, 12  SAY "Name:"
@  6, 18  GET  KEV_MSTR->FIRSTNAME
@  6, 39  GET  KEV_MSTR->LASTNAME
@  8,  9  SAY "Address:"
@  8, 18  GET  KEV_MSTR->ADDRESS1
@  9, 18  GET  KEV_MSTR->ADDRESS2
@ 10, 18  GET  KEV_MSTR->ADDRESS3
@ 11, 18  GET  KEV_MSTR->CITY
@ 11, 39  GET  KEV_MSTR->STATE
@ 11, 42  GET  KEV_MSTR->ZIP
@ 13,  7  SAY "Telephone: ("
@ 13, 19  GET  KEV_MSTR->AREA
@ 13, 22  SAY ")"
@ 13, 24  GET  KEV_MSTR->TELE1
@ 13, 27  SAY "-"
@ 13, 28  GET  KEV_MSTR->TELE2
@ 13, 34  SAY "Speedometer:"
@ 13, 47  GET  KEV_MSTR->SPEEDO
@ 13, 57  SAY "License:"
@ 13, 66  GET  KEV_MSTR->LICENSE
@ 15,  8  SAY "Car Type:"
@ 15, 18  GET  KEV_MSTR->CAR_TYPE
@ 17,  4  SAY "Instructions:"
@ 17, 18  GET  KEV_MSTR->REPAIR1
@ 18, 18  GET  KEV_MSTR->REPAIR2
@ 19, 18  GET  KEV_MSTR->REPAIR3
@ 22,  5  SAY "Emission:"
@ 22, 16  GET  KEV_MSTR->EMMISSION
@ 22, 26  SAY "Sub Let:"
@ 22, 35  GET  KEV_MSTR->SUBLET
@ 22, 45  SAY "Oil:"
@ 22, 50  GET  KEV_MSTR->OIL
@ 22, 60  SAY "Tax Rate:"
@ 22, 70  GET  KEV_MSTR->TAX_RATE
@ 24, 10 SAY  "Systematics Consulting, Inc. [phone] - Program KEV_0200"
@  2,  2  TO 20, 77
@ 21,  2  TO 23, 77
READ

X_EMMISSIN  = EMMISSION
X_SUBLET    = SUBLET
X_OIL       = OIL
X_TAX       = TAX_RATE
INV_FIND    = INV_NO
X_DATE      = DATE
X_NAME      = TRIM(FIRSTNAME) + " " + TRIM(LASTNAME)

CLEAR

*-----------display labor information--------------

X_LAB_COST = 0

SELECT 2

LOCATE FOR INV_NO = INV_FIND

X = 6

@ 24, 10 SAY  "Systematics Consulting, Inc. [phone] - Program KEV_0200"

@ 1,  1 SAY  DATE()
@ 1, 71 SAY  TIME()
@ 2,  5 TO  5,75 DOUBLE
@ 3, 15 SAY  "             KEVIN'S SUBARU               "
@ 4, 15 SAY  "     Display Invoice - Labor Information  "

  @ X, 3   SAY "Invoice: "
  @ X, 12  SAY INV_FIND PICTURE "#####"
  @ X, 20  SAY "Name: " + X_NAME
  @ X, 64  SAY "Date:"
  @ X, 70  SAY X_DATE

  X = X + 2

  @ X, 10 SAY "LABOR DESCRIPTION "
  @ X, 70 SAY "COST"

  X = X+2

DO WHILE INV_NO = INV_FIND .AND. .NOT. EOF()

  @ X, 10 SAY LABOR_DESC
  IF LABOR_COST > 0
  @ X, 70 SAY LABOR_COST PICTURE "####.##"
  X_LAB_COST = X_LAB_COST + LABOR_COST
  ENDIF

  X = X + 1

  IF X > 20
        ANSWER = " "
        @ 22, 14  SAY "  PRESS ANY KEY TO CONTINUE  " GET ANSWER
        @ 21,  9  TO 23, 71    DOUBLE
        READ
        CLEAR
        X = 6
        @ 1,  1 SAY  DATE()
        @ 1, 71 SAY  TIME()
        @ 2,  5 TO  5,75 DOUBLE
        @ 3, 15 SAY  "             KEVIN'S SUBARU               "
        @ 4, 15 SAY  "     Display Invoice - Labor Information  "

          @ X, 3   SAY "Invoice: "
          @ X, 12  SAY INV_FIND PICTURE "#####"
          @ X, 20  SAY "Name: " + X_NAME
          @ X, 64  SAY "Date:"
          @ X, 70  SAY X_DATE

          X = X + 2

          @ X, 10 SAY "LABOR DESCRIPTION "
          @ X, 70 SAY "COST"

          X = X+1
      ENDIF

  CONTINUE

ENDDO
@ X, 50 SAY "TOTAL LABOR:"
@ X, 70 SAY X_LAB_COST PICTURE "####.##"

X = X + 2

*-----------display Parts information--------------

  IF X > 20
        ANSWER = " "
        @ 22, 14  SAY "  PRESS ANY KEY TO CONTINUE  " GET ANSWER
        @ 21,  9  TO 23, 71    DOUBLE
        READ
        CLEAR
        X = 6
        @ 1,  1 SAY  DATE()
        @ 1, 71 SAY  TIME()
        @ 2,  5 TO  5,75 DOUBLE
        @ 3, 15 SAY  "             KEVIN'S SUBARU               "
        @ 4, 15 SAY  "     Display Invoice - Labor Information  "

          @ X, 3   SAY "Invoice: "
          @ X, 12  SAY INV_FIND PICTURE "#####"
          @ X, 20  SAY "Name: " + X_NAME
          @ X, 64  SAY "Date:"
          @ X, 70  SAY X_DATE

          X = X + 2

          @ X, 10 SAY "LABOR DESCRIPTION "
          @ X, 70 SAY "COST"

          X = X+1
      ENDIF

X_PRT_COST = 0

SELECT 3

LOCATE FOR INV_NO = INV_FIND

  @ X, 5  SAY "QTY."
  @ X, 10 SAY "PART DESCRIPTION "
  @ X, 60 SAY "UNIT $   TOT. $"

  X = X+2

DO WHILE INV_NO = INV_FIND .AND. .NOT. EOF()

  @ X, 10 SAY PART_DESC

  IF PART_QTY > 0 .AND. PART_COST > 0
          @ X, 5  SAY PART_QTY
          @ X, 60 SAY PART_COST PICTURE "####.##"
          X_COST = 0
          X_COST     = PART_QTY * PART_COST
          X_PRT_COST = X_PRT_COST + X_COST
          @ X, 70 SAY X_COST PICTURE "####.##"
      ENDIF

  X = X + 1

  IF X > 20
        ANSWER = " "
        @ 22, 14  SAY "  PRESS ANY KEY TO CONTINUE  " GET ANSWER
        @ 21,  9  TO 23, 71    DOUBLE
        READ
        CLEAR
        X = 6

        @ 24, 10 SAY  "Systematics Consulting, Inc. [phone] - Program KEV_0200"

        @ 1,  1 SAY  DATE()
        @ 1, 71 SAY  TIME()
        @ 2,  5 TO  5,75 DOUBLE
        @ 3, 15 SAY  "             KEVIN'S SUBARU               "
        @ 4, 15 SAY  "     Display Invoice - Parts Information  "

          @ X, 3   SAY "Invoice: "
          @ X, 12  SAY INV_FIND PICTURE "#####"
          @ X, 20  SAY "Name: " + X_NAME
          @ X, 64  SAY "Date:"
          @ X, 70  SAY X_DATE

          X = X + 2
          @ X, 5  SAY "QTY."
          @ X, 10 SAY "PART DESCRIPTION "
          @ X, 60 SAY "UNIT $   TOT. $"

          X = X+2
      ENDIF

  CONTINUE

ENDDO
@ X, 50 SAY "TOTAL PARTS:"
@ X, 70 SAY X_PRT_COST PICTURE "####.##"

ANSWER = " "
@ 22, 14  SAY "  PRESS ANY KEY TO CONTINUE  " GET ANSWER
@ 21,  9  TO 23, 71    DOUBLE
READ

CLEAR

*-----------display Invoice Total information--------------

X_TOTAL = 0
X_TAX1 = 0
X_TAX2 = 0

X = 7

@ 24, 10 SAY  "Systematics Consulting, Inc. [phone] - Program KEV_0200"

@ 1,  1 SAY  DATE()
@ 1, 71 SAY  TIME()
@ 2,  5 TO  5,75 DOUBLE
@ 3, 15 SAY  "             KEVIN'S SUBARU               "
@ 4, 15 SAY  "         Display Invoice - TOTALS         "

  @ X, 3   SAY "Invoice: "
  @ X, 12  SAY INV_FIND PICTURE "#####"
  @ X, 20  SAY "Name: " + X_NAME
  @ X, 65  SAY "Date:"
  @ X, 70  SAY X_DATE

  X = X + 2
  Y = 70
  Z = 30
  @ X,  Z SAY "Emission Costs:"
  @ X,  Y  SAY X_EMMISSIN PICTURE "####.##"
  X_TOTAL = X_TOTAL + X_EMMISSIN
  X = X+1
  @ X,  Z SAY "Sub Contract Costs:"
  @ X,  Y  SAY X_SUBLET PICTURE "####.##"
  X_TOTAL = X_TOTAL + X_SUBLET
  X = X+1
  @